home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / p / p.bat < prev    next >
DOS Batch File  |  1993-01-28  |  9KB  |  635 lines
  1. @echo off
  2. cls
  3.  
  4. :P1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO P2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :P2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO P1
  39. IF ERRORLEVEL 22 GOTO P3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :P3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO P2
  69. IF ERRORLEVEL 22 GOTO P4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :P4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  97.  
  98. IF ERRORLEVEL 24 GOTO QUIT
  99. IF ERRORLEVEL 23 GOTO P3
  100. IF ERRORLEVEL 22 GOTO P5
  101. IF ERRORLEVEL 21 GOTO 84
  102. IF ERRORLEVEL 20 GOTO 83
  103. IF ERRORLEVEL 19 GOTO 82
  104. IF ERRORLEVEL 18 GOTO 81
  105. IF ERRORLEVEL 17 GOTO 80
  106. IF ERRORLEVEL 16 GOTO 79
  107. IF ERRORLEVEL 15 GOTO 78
  108. IF ERRORLEVEL 14 GOTO 77
  109. IF ERRORLEVEL 13 GOTO 76
  110. IF ERRORLEVEL 12 GOTO 75
  111. IF ERRORLEVEL 11 GOTO 74
  112. IF ERRORLEVEL 10 GOTO 73
  113. IF ERRORLEVEL 9 GOTO 72
  114. IF ERRORLEVEL 8 GOTO 71
  115. IF ERRORLEVEL 7 GOTO 70
  116. IF ERRORLEVEL 6 GOTO 69
  117. IF ERRORLEVEL 5 GOTO 68
  118. IF ERRORLEVEL 4 GOTO 67
  119. IF ERRORLEVEL 3 GOTO 66
  120. IF ERRORLEVEL 2 GOTO 65
  121. IF ERRORLEVEL 1 GOTO 64
  122.  
  123. :P5
  124. TYPE 5.ANS
  125. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  126.  
  127. IF ERRORLEVEL 24 GOTO QUIT
  128. IF ERRORLEVEL 23 GOTO P4
  129. IF ERRORLEVEL 22 GOTO P6
  130. IF ERRORLEVEL 21 GOTO 105
  131. IF ERRORLEVEL 20 GOTO 104
  132. IF ERRORLEVEL 19 GOTO 103
  133. IF ERRORLEVEL 18 GOTO 102
  134. IF ERRORLEVEL 17 GOTO 101
  135. IF ERRORLEVEL 16 GOTO 100
  136. IF ERRORLEVEL 15 GOTO 99
  137. IF ERRORLEVEL 14 GOTO 98
  138. IF ERRORLEVEL 13 GOTO 97
  139. IF ERRORLEVEL 12 GOTO 96
  140. IF ERRORLEVEL 11 GOTO 95
  141. IF ERRORLEVEL 10 GOTO 94
  142. IF ERRORLEVEL 9 GOTO 93
  143. IF ERRORLEVEL 8 GOTO 92
  144. IF ERRORLEVEL 7 GOTO 91
  145. IF ERRORLEVEL 6 GOTO 90
  146. IF ERRORLEVEL 5 GOTO 89
  147. IF ERRORLEVEL 4 GOTO 88
  148. IF ERRORLEVEL 3 GOTO 87
  149. IF ERRORLEVEL 2 GOTO 86
  150. IF ERRORLEVEL 1 GOTO 85
  151.  
  152. :P6
  153. TYPE 6.ANS
  154. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  155.  
  156. IF ERRORLEVEL 24 GOTO QUIT
  157. IF ERRORLEVEL 23 GOTO P5
  158. IF ERRORLEVEL 22 GOTO P7
  159. IF ERRORLEVEL 21 GOTO 126
  160. IF ERRORLEVEL 20 GOTO 125
  161. IF ERRORLEVEL 19 GOTO 124
  162. IF ERRORLEVEL 18 GOTO 123
  163. IF ERRORLEVEL 17 GOTO 122
  164. IF ERRORLEVEL 16 GOTO 121
  165. IF ERRORLEVEL 15 GOTO 120
  166. IF ERRORLEVEL 14 GOTO 119
  167. IF ERRORLEVEL 13 GOTO 118
  168. IF ERRORLEVEL 12 GOTO 117
  169. IF ERRORLEVEL 11 GOTO 116
  170. IF ERRORLEVEL 10 GOTO 115
  171. IF ERRORLEVEL 9 GOTO 114
  172. IF ERRORLEVEL 8 GOTO 113
  173. IF ERRORLEVEL 7 GOTO 112
  174. IF ERRORLEVEL 6 GOTO 111
  175. IF ERRORLEVEL 5 GOTO 110
  176. IF ERRORLEVEL 4 GOTO 109
  177. IF ERRORLEVEL 3 GOTO 108
  178. IF ERRORLEVEL 2 GOTO 107
  179. IF ERRORLEVEL 1 GOTO 106
  180.  
  181. :P7
  182. TYPE 7.ANS
  183. ASK /FE "" ABCDEFGHIJKLMN23
  184.  
  185. IF ERRORLEVEL 16 GOTO QUIT
  186. IF ERRORLEVEL 15 GOTO P6
  187. IF ERRORLEVEL 14 GOTO 140
  188. IF ERRORLEVEL 13 GOTO 139
  189. IF ERRORLEVEL 12 GOTO 138
  190. IF ERRORLEVEL 11 GOTO 137
  191. IF ERRORLEVEL 10 GOTO 136
  192. IF ERRORLEVEL 9 GOTO 135
  193. IF ERRORLEVEL 8 GOTO 134
  194. IF ERRORLEVEL 7 GOTO 133
  195. IF ERRORLEVEL 6 GOTO 132
  196. IF ERRORLEVEL 5 GOTO 131
  197. IF ERRORLEVEL 4 GOTO 130
  198. IF ERRORLEVEL 3 GOTO 129
  199. IF ERRORLEVEL 2 GOTO 128
  200. IF ERRORLEVEL 1 GOTO 127
  201.  
  202.  
  203. :1
  204. VPIC /A P11
  205. GOTO P1
  206. :2
  207. VPIC /A P2NUD1
  208. GOTO P1
  209. :3
  210. VPIC /A P2NUD2
  211. GOTO P1
  212. :4
  213. VPIC /A P2NUD3
  214. GOTO P1
  215. :5
  216. VPIC /A P4_C_02
  217. GOTO P1
  218. :6
  219. VPIC /A P4_C_03
  220. GOTO P1
  221. :7
  222. VPIC /A PA
  223. GOTO P1
  224. :8
  225. VPIC /A PALM_4
  226. GOTO P1
  227. :9
  228. VPIC /A PAMELA
  229. GOTO P1
  230. :10
  231. VPIC /A PANTIES
  232. GOTO P1
  233. :11
  234. VPIC /A PANTS_1
  235. GOTO P1
  236. :12
  237. VPIC /A PANTS_2
  238. GOTO P1
  239. :13
  240. VPIC /A PARLOR
  241. GOTO P1
  242. :14
  243. VPIC /A PARTS
  244. GOTO P1
  245. :15
  246. VPIC /A PARTY3
  247. GOTO P1
  248. :16
  249. VPIC /A PARTY4
  250. GOTO P1
  251. :17
  252. VPIC /A PATRIC
  253. GOTO P1
  254. :18
  255. VPIC /A PB0190
  256. GOTO P1
  257. :19
  258. VPIC /A PB108
  259. GOTO P1
  260. :20
  261. VPIC /A PB180
  262. GOTO P1
  263. :21
  264. VPIC /A PB330
  265. GOTO P1
  266. :22
  267. VPIC /A PB347
  268. GOTO P2
  269. :23
  270. VPIC /A PB354
  271. GOTO P2
  272. :24
  273. VPIC /A PBL003
  274. GOTO P2
  275. :25
  276. VPIC /A PBSTRIP
  277. GOTO P2
  278. :26
  279. VPIC /A PDRNKR6
  280. GOTO P2
  281. :27
  282. VPIC /A PDUFFEK2
  283. GOTO P2
  284. :28
  285. VPIC /A PEGSUE9
  286. GOTO P2
  287. :29
  288. VPIC /A PENCIL
  289. GOTO P2
  290. :30
  291. VPIC /A PEPPER12
  292. GOTO P2
  293. :31
  294. VPIC /A PERKY012
  295. GOTO P2
  296. :32
  297. VPIC /A PESO_1
  298. GOTO P2
  299. :33
  300. VPIC /A PGN
  301. GOTO P2
  302. :34
  303. VPIC /A PGN003
  304. GOTO P2
  305. :35
  306. VPIC /A PGN005
  307. GOTO P2
  308. :36
  309. VPIC /A PGN013
  310. GOTO P2
  311. :37
  312. VPIC /A PGN019
  313. GOTO P2
  314. :38
  315. VPIC /A PGN035
  316. GOTO P2
  317. :39
  318. VPIC /A PGN038
  319. GOTO P2
  320. :40
  321. VPIC /A PGN049
  322. GOTO P2
  323. :41
  324. VPIC /A PGN066
  325. GOTO P2
  326. :42
  327. VPIC /A PGN069
  328. GOTO P2
  329. :43
  330. VPIC /A PGN073
  331. GOTO P3
  332. :44
  333. VPIC /A PGN077
  334. GOTO P3
  335. :45
  336. VPIC /A PGN084
  337. GOTO P3
  338. :46
  339. VPIC /A PGN085
  340. GOTO P3
  341. :47
  342. VPIC /A PGN097
  343. GOTO P3
  344. :48
  345. VPIC /A PGN109
  346. GOTO P3
  347. :49
  348. VPIC /A PGN121
  349. GOTO P3
  350. :50
  351. VPIC /A PGN128
  352. GOTO P3
  353. :51
  354. VPIC /A PGN129
  355. GOTO P3
  356. :52
  357. VPIC /A PGN130
  358. GOTO P3
  359. :53
  360. VPIC /A PGN133
  361. GOTO P3
  362. :54
  363. VPIC /A PGN135
  364. GOTO P3
  365. :55
  366. VPIC /A PGN171
  367. GOTO P3
  368. :56
  369. VPIC /A PGN179
  370. GOTO P3
  371. :57
  372. VPIC /A PGN180
  373. GOTO P3
  374. :58
  375. VPIC /A PGN181
  376. GOTO P3
  377. :59
  378. VPIC /A PGN189
  379. GOTO P3
  380. :60
  381. VPIC /A PGN190
  382. GOTO P3
  383. :61
  384. VPIC /A PGN191
  385. GOTO P3
  386. :62
  387. VPIC /A PGN207
  388. GOTO P3
  389. :63
  390. VPIC /A PGN262
  391. GOTO P3
  392. :64
  393. VPIC /A PGN263
  394. GOTO P4
  395. :65
  396. VPIC /A PGN271
  397. GOTO P4
  398. :66
  399. VPIC /A PGN315
  400. GOTO P4
  401. :67
  402. VPIC /A PGN316
  403. GOTO P4
  404. :68
  405. VPIC /A PGN330
  406. GOTO P4
  407. :69
  408. VPIC /A PGN354
  409. GOTO P4
  410. :70
  411. VPIC /A PGN435
  412. GOTO P4
  413. :71
  414. VPIC /A PGN454
  415. GOTO P4
  416. :72
  417. VPIC /A PGN581
  418. GOTO P4
  419. :73
  420. VPIC /A PHONSEX4
  421. GOTO P4
  422. :74
  423. VPIC /A PIANO1
  424. GOTO P4
  425. :75
  426. VPIC /A PIANO5
  427. GOTO P4
  428. :76
  429. VPIC /A PIANO6
  430. GOTO P4
  431. :77
  432. VPIC /A PIANO7
  433. GOTO P4
  434. :78
  435. VPIC /A PIANOLES
  436. GOTO P4
  437. :79
  438. VPIC /A PIGTAIL
  439. GOTO P4
  440. :80
  441. VPIC /A PIGTAIL7
  442. GOTO P4
  443. :81
  444. VPIC /A PINK
  445. GOTO P4
  446. :82
  447. VPIC /A PINK2
  448. GOTO P4
  449. :83
  450. VPIC /A PINK_002
  451. GOTO P4
  452. :84
  453. VPIC /A PINK_003
  454. GOTO P4
  455. :85
  456. VPIC /A PISSER
  457. GOTO P5
  458. :86
  459. VPIC /A PIX01
  460. GOTO P5
  461. :87
  462. VPIC /A PL91
  463. GOTO P5
  464. :88
  465. VPIC /A PLATEAU
  466. GOTO P5
  467. :89
  468. VPIC /A PLATO2
  469. GOTO P5
  470. :90
  471. VPIC /A PLOW_8
  472. GOTO P5
  473. :91
  474. VPIC /A PLSUM53
  475. GOTO P5
  476. :92
  477. VPIC /A PMILLER
  478. GOTO P5
  479. :93
  480. VPIC /A PNKSHEET
  481. GOTO P5
  482. :94
  483. VPIC /A POKEIT3
  484. GOTO P5
  485. :95
  486. VPIC /A POOLPET
  487. GOTO P5
  488. :96
  489. VPIC /A POOLPET2
  490. GOTO P5
  491. :97
  492. VPIC /A POOLPET5
  493. GOTO P5
  494. :98
  495. VPIC /A POOLPET8
  496. GOTO P5
  497. :99
  498. VPIC /A PORNO4
  499. GOTO P5
  500. :100
  501. VPIC /A PORNQN7
  502. GOTO P5
  503. :101
  504. VPIC /A PORSCHE4
  505. GOTO P5
  506. :102
  507. VPIC /A PREG19A
  508. GOTO P5
  509. :103
  510. VPIC /A PREG22
  511. GOTO P5
  512. :104
  513. VPIC /A PREG_1
  514. GOTO P5
  515. :105
  516. VPIC /A PREG_10
  517. GOTO P5
  518. :106
  519. VPIC /A PREG_14
  520. GOTO P6
  521. :107
  522. VPIC /A PREG_15
  523. GOTO P6
  524. :108
  525. VPIC /A PREG_16
  526. GOTO P6
  527. :109
  528. VPIC /A PREG_17
  529. GOTO P6
  530. :110
  531. VPIC /A PREVW44
  532. GOTO P6
  533. :111
  534. VPIC /A PRIZM6
  535. GOTO P6
  536. :112
  537. VPIC /A PROFIT_1
  538. GOTO P6
  539. :113
  540. VPIC /A PSCX0020
  541. GOTO P6
  542. :114
  543. VPIC /A PSCX0026
  544. GOTO P6
  545. :115
  546. VPIC /A PSCX0079
  547. GOTO P6
  548. :116
  549. VPIC /A PSCX0082
  550. GOTO P6
  551. :117
  552. VPIC /A PSCX0083
  553. GOTO P6
  554. :118
  555. VPIC /A PSCX0084
  556. GOTO P6
  557. :119
  558. VPIC /A PSCX0088
  559. GOTO P6
  560. :120
  561. VPIC /A PSCX0113
  562. GOTO P6
  563. :121
  564. VPIC /A PSCX0137
  565. GOTO P6
  566. :122
  567. VPIC /A PSHRX040
  568. GOTO P6
  569. :123
  570. VPIC /A PSHRX060
  571. GOTO P6
  572. :124
  573. VPIC /A PSHRX068
  574. GOTO P6
  575. :125
  576. VPIC /A PSHRX083
  577. GOTO P6
  578. :126
  579. VPIC /A PS_X_016
  580. GOTO P6
  581. :127
  582. VPIC /A PS_X_119
  583. GOTO P7
  584. :128
  585. VPIC /A PS_X_127
  586. GOTO P7
  587. :129
  588. VPIC /A PS_X_159
  589. GOTO P7
  590. :130
  591. VPIC /A PS_X_229
  592. GOTO P7
  593. :131
  594. VPIC /A PS_X_251
  595. GOTO P7
  596. :132
  597. VPIC /A PS_X_318
  598. GOTO P7
  599. :133
  600. VPIC /A PS_X_447
  601. GOTO P7
  602. :134
  603. VPIC /A PS_X_452
  604. GOTO P7
  605. :135
  606. VPIC /A PURPLE1T
  607. GOTO P7
  608. :136
  609. VPIC /A PUSH!_1
  610. GOTO P7
  611. :137
  612. VPIC /A PUSH!_2
  613. GOTO P7
  614. :138
  615. VPIC /A PUSHEMUP
  616. GOTO P7
  617. :139
  618. VPIC /A PUSSY
  619. GOTO P7
  620. :140
  621. VPIC /A P_CABLE1
  622. GOTO P7
  623.  
  624. :SELECTION
  625. CD\SETUP
  626. FSTORM3
  627.  
  628. :QUIT
  629. CD\SETUP
  630. FSTORM3
  631.  
  632.  
  633.  
  634.  
  635.